inherited fmArizaMonitorTakip: TfmArizaMonitorTakip
  Left = 230
  Top = 163
  Caption = 'Par'#231'a Takip'
  ClientHeight = 481
  ClientWidth = 982
  OnActivate = FormActivate
  OnDeactivate = FormDeactivate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel [0]
    Left = 0
    Top = 27
    Width = 982
    Height = 78
    Align = alTop
    TabOrder = 2
    DesignSize = (
      982
      78)
    object Label1: TLabel
      Left = 16
      Top = 10
      Width = 60
      Height = 16
      Caption = 'Form No'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 248
      Top = 10
      Width = 57
      Height = 16
      Caption = #304'lk Tarih'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 248
      Top = 34
      Width = 68
      Height = 16
      Caption = 'Son Tarih'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object LMod: TLabel
      Left = 791
      Top = 13
      Width = 183
      Height = 40
      Anchors = [akTop, akRight]
      AutoSize = False
      Caption = 'G'#246'zat Modu'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -32
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object wwMod: TwwRadioGroup
      Left = 8
      Top = 32
      Width = 225
      Height = 34
      DisableThemes = False
      ItemIndex = 1
      Columns = 2
      Ctl3D = False
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Items.Strings = (
        'Giri'#351' Modu'
        'G'#246'zat Modu')
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 4
      TabStop = False
      Values.Strings = (
        '0'
        '2')
      OnChange = wwModChange
    end
    object FormNo: TwwDBEdit
      Left = 80
      Top = 8
      Width = 153
      Height = 21
      TabOrder = 0
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
      OnExit = FormNoExit
    end
    object Tarih1: TwwDBDateTimePicker
      Left = 320
      Top = 7
      Width = 106
      Height = 21
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Epoch = 1950
      ShowButton = True
      TabOrder = 1
      UnboundDataType = wwDTEdtDate
    end
    object Tarih2: TwwDBDateTimePicker
      Left = 320
      Top = 30
      Width = 106
      Height = 21
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Epoch = 1950
      ShowButton = True
      TabOrder = 2
      UnboundDataType = wwDTEdtDate
    end
    object btListele: TButton
      Left = 438
      Top = 9
      Width = 86
      Height = 39
      Action = acListele
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
    end
  end
  object grdListe: TwwDBGrid [1]
    Left = 0
    Top = 105
    Width = 982
    Height = 300
    DisableThemes = False
    ControlType.Strings = (
      'BolumId;CustomEdit;lcBolum;T'
      'PerId;CustomEdit;edPersonel;T'
      'CikanBolum;CustomEdit;lcBolumCik;T')
    Selected.Strings = (
      'Serino'#9'20'#9'Serino'#9'F'
      'Cinsi'#9'36'#9'Cinsi'#9'F'
      'Formno'#9'10'#9'Form No'#9'F'
      'GelTarih'#9'12'#9'GelTarih'#9'F'
      'GitTarih'#9'12'#9'Git. Tarih'#9'F'
      'BolumId'#9'15'#9'Giren B'#246'l'#252'm'#9'F'
      'CikanBolum'#9'13'#9#199#305'kan B'#246'l'#252'm'#9'F'
      'Garanti'#9'7'#9'Garanti'#9'F'
      'PerId'#9'15'#9'Personel'#9'F'
      'Durumu'#9'6'#9'Durumu'#9'F')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Align = alClient
    DataSource = dsEntry
    KeyOptions = []
    ReadOnly = True
    TabOrder = 3
    TitleAlignment = taLeftJustify
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    UseTFields = False
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 446
    Width = 982
    Height = 35
    Align = alBottom
    TabOrder = 5
    object LKayit: TLabel
      Left = 1
      Top = 1
      Width = 295
      Height = 33
      Align = alLeft
      Alignment = taCenter
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -24
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object LMesaj: TLabel
      Left = 296
      Top = 1
      Width = 685
      Height = 33
      Align = alClient
      Alignment = taCenter
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -24
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object Panel3: TPanel [3]
    Left = 0
    Top = 405
    Width = 982
    Height = 41
    Align = alBottom
    TabOrder = 4
    DesignSize = (
      982
      41)
    object btSil: TButton
      Left = 8
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Sil'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      Visible = False
      OnClick = btSilClick
    end
    object btGeriAl: TButton
      Left = 88
      Top = 8
      Width = 75
      Height = 25
      Caption = #199#305'k'#305#351' Geri Al'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      Visible = False
      OnClick = btGeriAlClick
    end
    object Button4: TButton
      Left = 895
      Top = 8
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = 'Kapat'
      TabOrder = 2
      OnClick = Button4Click
    end
  end
  object Panel4: TPanel [4]
    Left = 0
    Top = 0
    Width = 982
    Height = 27
    Align = alTop
    TabOrder = 1
    object Label4: TLabel
      Left = 16
      Top = 5
      Width = 44
      Height = 16
      Caption = 'B'#246'l'#252'm'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object Bolum: TwwDBLookupCombo [5]
    Left = 80
    Top = 2
    Width = 153
    Height = 21
    DisableThemes = False
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'MASADI'#9'30'#9'MASADI'#9'F')
    LookupTable = Personel_BolumQ
    LookupField = 'ID'
    Options = [loRowLines]
    Style = csDropDownList
    Navigator = False
    TabOrder = 0
    AutoDropDown = True
    ShowButton = True
    UseTFields = False
    AllowClearKey = True
    OnChange = BolumChange
  end
  object lcBolum: TwwDBLookupCombo [6]
    Left = 718
    Top = 146
    Width = 94
    Height = 21
    DisableThemes = False
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'MASADI'#9'30'#9'MASADI'#9'F')
    LookupTable = Personel_BolumQ
    LookupField = 'ID'
    Options = [loRowLines]
    Style = csDropDownList
    Navigator = False
    TabOrder = 6
    AutoDropDown = True
    ShowButton = True
    UseTFields = False
    AllowClearKey = True
  end
  object edPersonel: TwwDBLookupCombo [7]
    Left = 720
    Top = 168
    Width = 94
    Height = 21
    DisableThemes = False
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'pismi'#9'50'#9'pismi'#9'F')
    LookupTable = dm.sppersonel
    LookupField = 'perkod'
    Navigator = False
    TabOrder = 7
    AutoDropDown = False
    ShowButton = True
    UseTFields = False
    AllowClearKey = False
  end
  object lcBolumCik: TwwDBLookupCombo [8]
    Left = 718
    Top = 186
    Width = 82
    Height = 21
    DisableThemes = False
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'MASADI'#9'30'#9'MASADI'#9'F')
    LookupTable = Personel_BolumQ
    LookupField = 'ID'
    Options = [loRowLines]
    Style = csDropDownList
    Navigator = False
    TabOrder = 8
    AutoDropDown = True
    ShowButton = True
    UseTFields = False
    AllowClearKey = True
  end
  inherited alKeyControl: TActionList
    Left = 1096
    Top = 512
    object acListele: TAction
      Caption = 'Listele'
      ShortCut = 116
      OnExecute = acListeleExecute
    end
  end
  inherited XPManifest: TXPManifest
    Left = 1128
    Top = 552
  end
  object aqEntry: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    AfterOpen = aqEntryAfterOpen
    AfterPost = aqEntryAfterOpen
    AfterScroll = aqEntryAfterOpen
    CommandTimeout = 300
    Parameters = <>
    SQL.Strings = (
      ' select T.Serino,'
      
        '     Cinsi = (select top 1 S.cinsi from teknik FH Join Stok S on' +
        ' s.Stokkod = FH.Stokkod where FH.formno = T.formno),  '
      '     T.CariID, T.Formno, T.GelTarih, T.GitTarih,  '
      
        '     case when T.Garanti = '#39'D'#39' then '#39'D'#305#351#305#39' when T.Garanti = '#39'E'#39' ' +
        'then '#39'Var'#39'  '
      '     when T.Garanti = '#39'H'#39' then '#39'Yok'#39' end GarantiX,  '
      
        '     T.Garanti, T.GelGitState,T.BolumId,T.PerId,CikanBolum,Durum' +
        'u  '
      '     from tbl_monitor T  '
      '     where 1=2')
    Left = 251
    Top = 104
  end
  object dsEntry: TDataSource
    DataSet = aqEntry
    Left = 251
    Top = 160
  end
  object aqMonitor: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    CommandTimeout = 300
    Parameters = <
      item
        Name = 'FormNo1'
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'FormNo'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select *,'
      
        'OnarimSeriNo=(Select top 1 Serino from teknik where formno=O.for' +
        'mno),  '
      'OGarantidurumu As OnarimGaranti,O.FormNo OnarimFormno '
      'from tbl_monitor m'
      'Join onarim O on (O.Formno=:FormNo1)'
      'Where M.FormNo=:FormNo'
      ' Order By M.GitTarih')
    Left = 363
    Top = 152
  end
  object Personel_BolumQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select ID,MASKODU,MASADI,ALT_ID from CS_PERSONEL_MASRAF_MERKEZI ' +
        'Where OZELKOD1='#39'T'#39' and AKTIF=1'
      'order by MASADI')
    Left = 365
    Top = 208
  end
end
